home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / v11n02.zip / REC2RE.PRG < prev    next >
Text File  |  1991-09-24  |  2KB  |  39 lines
  1. ***********************************************************************
  2. * PROCEDURE Rec2Rec( nToArea )                           Clipper 5.01
  3. * Copy current record in current work area to current
  4. * record in destination workarea
  5. ***********************************************************************
  6. PROCEDURE Rec2Rec( nToArea )
  7. LOCAL i, nFCnt:= FCOUNT()              && Get field count
  8. nFromArea:= SELECT()                   && Get current work area
  9.  
  10. SELECT ( nToArea )                     && Select destination work area
  11.  
  12. FOR i:= 1 TO nFCnt                     && Loop through, copying fields
  13.    FIELDPUT( i, ( nFromArea )->( FIELDGET( i ) ) )
  14. NEXT
  15.  
  16. SELECT ( nFromArea )                   && Return to from work area
  17. RETURN                                 && Return to caller
  18.  
  19. ***********************************************************************
  20. * FUNCTION Rec2Array()                                   Clipper 5.01
  21. * Copy record from current work area into an array
  22. ***********************************************************************
  23. FUNCTION Rec2Array()
  24. LOCAL nFCnt:= FCOUNT()                 && Get field count
  25. LOCAL i, aArray[ nFCnt ]               && Create the array
  26.  
  27. FOR i:= 1 TO nFCnt                     && Loop through, storing each
  28.    aArray[ i ]:= FIELDGET( i )         && field in an array element
  29. NEXT
  30. RETURN aArray                          && Return the array
  31.  
  32. ***********************************************************************
  33. * PROCEDURE Array2Rec( aArray )                          Clipper 5.01
  34. * Copy an array to the current record in the current work area
  35. ***********************************************************************
  36. PROCEDURE Array2Rec( aArray )
  37. AEVAL( aArray, {| v, i | FIELDPUT( i, v ) } )    && Write the array
  38. RETURN
  39.